Public Class Sessao

    Private strStatus As String

    Public Sub New(ByVal strStatus As String)
        Me.strStatus = strStatus
    End Sub

    Public Sub setStatus(ByVal Status As String)
        strStatus = Status
    End Sub

    Public Function getStatus() As String
        getStatus = strStatus
    End Function

End Class
